home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 65 / 065.d81 / text printer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  100 lines
  1. 5 poke53281,0:poke53280,0:print"[147][159]"
  2. 10 poke55,.:poke56,64:clr
  3. 12 sys57812"dirtovar.o",8,0:poke780,0:poke781,0:poke782,141:sys65493
  4. 16 sys57812"tp.disk.o",8,0:poke780,0:poke781,0:poke782,192:sys65493
  5. 18 sys57812"tp.print1.o",8,0:poke780,0:poke781,0:poke782,200:sys65493
  6. 20 sys57812"tp.print2.o",8,0:poke780,0:poke781,0:poke782,204:sys65493
  7. 105 rem       setup stuff...
  8. 106 :
  9. 110 q$=chr$(34):c=54272
  10. 115 tp$="[147][150]   [212] [197] [216] [212]   [208] [210] [201] [206] [212] [197] [210]   1 9 9 0"
  11. 117 pr$="hold down [193] to pause printing "
  12. 118 ct$="([195])ontinue printing    ([209])uit "
  13. 120 dim ty$(144),na$(144),le$(144),td$(23),pc%(23)
  14. 130 gosub1000:ifqtthenprinttp$:goto2000
  15. 140 printtp$:print"[159]   [201]nsert the disk with the "q$"t."q$" [159]files"
  16. 145 printtab(11)"and press [211][208][193][195][197][154]."
  17. 150 geta$:ifa$<>" "then150
  18. 160 printtp$:print"[159][210]eading all "q$"prg"q$" [159]files with "q$"t."q$" [159]names."
  19. 180 sys36096:i=1:j=1
  20. 190 printtp$
  21. 200 ifna$(i)=""then225
  22. 210 ifleft$(na$(i),2)="t."thentd$(j)=na$(i):j=j+1
  23. 220 i=i+1:goto200
  24. 225 ifj=1thenprint"[159] [212]here are no "q$"t."q$" [159]files on this disk.":goto2000
  25. 230 print"[158]  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][145]"
  26. 231 printtab(20-(len(na$(0))/2)-1)"[179][129]"na$(0)"[158][171]"
  27. 232 fori=1toj-1:print"  [158][221]"tab(13)"[154]"td$(i)tab(36)"[158][221]":next
  28. 234 print"  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  29. 240 k=1
  30. 245 poke214,22:print:print"[195][210][211][210] [159]keys select  [210][197][212][213][210][206] [159]toggle  [193] [159]all"
  31. 247 print"     [198]1 [159]print the highlighted files"
  32. 250 poke214,k+1:print:printtab(10)"[153][192]>[145]":poke198,0
  33. 260 geta$:ifa$=""then260
  34. 261 printtab(10)"  [145]"
  35. 262 ifa$="[145]"thenk=k-1:ifk<1thenk=j-1
  36. 264 ifa$=""thenk=k+1:ifk>j-1thenk=1
  37. 265 ifa$<>"[133]"then268
  38. 266 poke214,22:print:print"                                       "
  39. 267 form=1989to2018:pokem,asc(mid$(pr$,m-1988,1)):pokem+c,7:next:goto300
  40. 268 ifa$<>"a"then270
  41. 269 print"":fori=1toj-1:printtab(13)""td$(i):pc%(i)=1:next:goto240
  42. 270 ifa$<>chr$(13)then250
  43. 272 ifpc%(k)thenpc%(k)=0:printtab(13)"[154]"td$(k):goto250
  44. 274 pc%(k)=1:printtab(13)""td$(k):goto250
  45. 300 fori=1toj:ifpc%(i)=0then380
  46. 305 poke214,i+1:print:print"[153][210]eading[145]"
  47. 310 sys 49155,16384,td$(i)
  48. 315 ea=(peek(781)+peek(782)*256):poke ea,.:pokeea+1,13:poke ea+2,13
  49. 320 open4,4,7:z=.:a$=""
  50. 321 ifpeek(16384+z)=13then323
  51. 322 a$=a$+chr$(peek(16384+z)):z=z+1:goto321
  52. 323 s=16384:ifleft$(a$,3)="^u:"thens=16384+len(a$)+1
  53. 325 print"[153][208]rinting[145]"
  54. 329 poke2,0
  55. 330 if(fl)then sys 52224,s:sp=59-peek(787)
  56. 340 iffl=0then sys 51200,s:sp=peek(787)+5
  57. 344 ifpeek(2)=0then360
  58. 345 sys65484
  59. 346 form=1989to2018:pokem,asc(mid$(ct$,m-1988,1)):pokem+c,7:next
  60. 347 geta$:ifa$<>"c"anda$<>"q"then347
  61. 348 ifa$="q"theni=j:next:print#4:close4:goto2000
  62. 349 form=1989to2018:pokem,asc(mid$(pr$,m-1988,1)):pokem+c,7:next
  63. 350 poke2,.
  64. 351 if(fl)thenpoke781,4:sys65481:           sys52486:sp=59-peek(787)
  65. 352 iffl=0thenpoke781,4:sys65481:           sys51318:sp=peek(787)+5
  66. 354 ifpeek(2)=1then346
  67. 360 for b=1 to sp:print#4:next:close4
  68. 370 poke214,i+1:print:print"        "
  69. 380 nexti:goto2000
  70. 1000 poke53281,0:poke53280,0
  71. 1010 print"[147][159]"tp$
  72. 1030 print"[153]    by [205]ike [205]aynard and [198]ender [212]ucker"
  73. 1040 print"[154]    [212]his program shows you the names of"
  74. 1050 print" all of the "q$"t."q$" [154]files on a disk and"
  75. 1060 print" allows you to print out all of them or
  76. 1070 [153]" just the ones you want."
  77. 1092 [153]"    (NULL)ake sure your printer is on-line"
  78. 1094 [153]" and the print head is set to the top"
  79. 1096 [153]" of a page."
  80. 1098 [153]"    (NULL)hese are your options:"
  81. 1100 [153]"       open((NULL)open)wo columns"
  82. 1110 [153]"       open((NULL)open)ingle column in mid-page"
  83. 1120 [153]"       open((NULL)open)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  84. 1130 [153]"          cont(NULL)ress  (NULL)cont, (NULL) or (NULL)"
  85. 1140 [161]a$:[139]a$[179][177]"t"[175]a$[179][177]"s"[175]a$[179][177]"r"[167]1140
  86. 1145 [139]a$[178]"r"[167]qt[178]1:[142]
  87. 1150 fl[178]0:[139]a$[178]"t"[167]fl[178]1
  88. 1160 [142]
  89. 2000 [153]"load":[153][163]10)"cont(str$cont)o another disk"
  90. 2005 [153][163]10)"cont((NULL)cont)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  91. 2010 [151]198,.
  92. 2020 [161]a$:[139]a$[179][177]"d"[175]a$[179][177]"r"[167]2020
  93. 2030 [139]a$[178]"d"[167][138]110
  94. 2040 [159]15,8,15,"r0:loadstar briefs=loadstar briefs":[132]15,er:[160]15
  95. 2050 [139]er[179][177]63[167][128]
  96. 2060 [153]"loadstopload"q$"loadstar briefs"q$",8"
  97. 2070 [153]"run"
  98. 2080 [151]631,13:[151]632,13:[151]198,2:[128]
  99. 10000 [159]15,8,15,"s0:text printer":[160]15:[148]"text printer",8:[128]
  100.